unit UInstruction;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
  System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs,
  FMX.StdCtrls, UDialog, FMX.Edit, FMX.Objects;

type
  TInstructionDialog = class(TDialogFrame)
    instructionLabel: TLabel;
    InstructionEdit: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  InstructionDialog: TInstructionDialog;

implementation

{$R *.fmx}

procedure TInstructionDialog.Button1Click(Sender: TObject);
begin
  ReturnString := InstructionEdit.Text;
  DialogResult := mrOK;
  FProcessDialogResult.ProcessDialogResult;
end;

procedure TInstructionDialog.Button2Click(Sender: TObject);
begin
InstructionEdit.Text := '';
  self.DialogResult := mrCancel;
  FProcessDialogResult.ProcessDialogResult;

end;

end.
